home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / rexx / rxasl.lha / rxasl / examples / font.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2000-11-07  |  608 b   |  30 lines
  1. /*
  2.     ReqFont() example
  3. */
  4.  
  5. if ~show("L","rxasl.library") then
  6.     if ~addLib("rxasl.library",0,-30) then
  7.         say "can't find rxasl.library"
  8.  
  9. a.FallBack             = 1
  10. a.Dofrontpen        = 1
  11. a.Dobackpen            = 1
  12. a.Dodrawmode        = 1
  13. a.Dostyle            = 1
  14. a.Fixedwidthonly    = 0
  15. a.Frontpen            = 1
  16. a.Backpen            = 0
  17. a.Name                 = "topaz"
  18.  
  19. res=ReqFont(a)
  20. if res==0 then do
  21.     say "Name:    " a.Name
  22.     say "Size:    " d2x(a.Size)
  23.     say "Styles:  " d2x(a.Styles)
  24.     say "Flags:   " d2x(a.Flags)
  25.     say "DrawMode:" d2x(a.DrawMode)
  26.     say "FrontPen:" a.FrontPen
  27.     say "BackPen: " a.BackPen
  28. end
  29. else if res~=-1 then say GetRxAslString(res) "(" || RXASLERROR || ")"
  30.